<%
  ' Si el usuario no está conectado, redirigir a la página de inicio de sesión
  If Not Session("auth_granted") = "true" Then 
  	cadURL = "Login.asp"
	response.write "<script>window.open('"& cadURL & "','_top');</script>"
	Response.End
  End If 
%>
<!--#include file="Librerias/mssql-ds.dll" -->
<!--#include file="Librerias/security-ds.dll" -->
<!--#include file="Funciones/FuncionesGenerales.asp" -->
<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">

<script language="javascript">
function CargarInsumos(vID){
	window.open('FrameInsumos.asp?qIdentificador='+vID, 'frameINSUMOS');
}
</script>

<%
'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")
qIdentificador = request.querystring("qIdentificador")
qApertura = request.querystring("qApertura")
sSQL = ""
sSQL = sSQL & " SELECT pro"& qGestion &"_id, pro"& qGestion &"_proceso, pro"& qGestion &"_objetivo, pro"& qGestion &"_ponderacion, pro"& qGestion &"_codigo, aper_id"
sSQL = sSQL & " FROM Procesos"& qGestion &""
sSQL = sSQL & " WHERE (p"& qGestion &"_id = "& qIdentificador &")"
MatrizProcesos = MatrixBD(sSQL, 1)
If VarType(MatrizProcesos) = 8  then
	QProcesos = -1
Else
	QProcesos = UBound(MatrizProcesos,2)	
End If
%>
        
<table width="95%" border="0" cellspacing="1" cellpadding="4" align="center">
    <tr>
        <td class="EncabezadoTabla" align="center">No.</td>
        <td class="EncabezadoTabla" align="center">C&oacute;digo</td>
        <td class="EncabezadoTabla" align="center">Producto de la Operaci&oacute;n</td>
        <td class="EncabezadoTabla" align="center">Objetivo</td>
        
        <td class="EncabezadoTabla" align="center">Apertura Program&aacute;tica</td>
        
        <td class="EncabezadoTabla" align="center">Partidas / Monto (Bs.)</td>
        <td class="EncabezadoTabla" title="Asignar Insumo" align="center">AI</td>
    </tr>
	<% for n = 0 to QProcesos %>
    <%
    if n mod 2 = 0 then
    bgcolor = "TablaFila1"
    else
    bgcolor = "TablaFila2"
    end if 
    %>
    <tr class="<%=bgcolor%>">
        <td width="20"><%=n+1%></td>
        <td width="10%"><%=MatrizProcesos(4,n)%></td>
        <td width="20%"><%=MatrizProcesos(1,n)%></td>
        <td width="20%"><%=MatrizProcesos(2,n)%></td>
        <td width="20%"><%=AperturaProgramaticaCompuesta(MatrizProcesos(5,n))%></td>
        <td width="23%">
		<%
        sSQL = ""
        sSQL = sSQL & " SELECT SUM(Insumos.ins_costo_total) AS SUMA, Partidas.par_id, Partidas.par_nombre"
        sSQL = sSQL & " FROM InsumoProceso"& qGestion &""
        sSQL = sSQL & " INNER JOIN Insumos ON InsumoProceso"& qGestion &".ins_id = Insumos.ins_id"
        sSQL = sSQL & " INNER JOIN Partidas ON Insumos.par_id = Partidas.par_id"
        sSQL = sSQL & " WHERE (InsumoProceso"& qGestion &".pro"& qGestion &"_id = "& MatrizProcesos(0,n) &")"
        sSQL = sSQL & " GROUP BY Partidas.par_id, Partidas.par_nombre"
        MatTemporal = MatrixBD(sSQL, 1)
        If VarType(MatTemporal) = 8  then
			CuantosTemporal = -1
        Else
			CuantosTemporal = UBound(MatTemporal,2)	
        End If
        If CuantosTemporal <> -1 Then %>
            <table width="100%" border="1" cellspacing="0" cellpadding="2" bordercolor="#ACACAC" style="border-collapse:collapse;">
				<% For tempo = 0 To CuantosTemporal %>
                <tr>
                    <td><%=MatTemporal(1,tempo)%></td>
                    <td><%=MatTemporal(2,tempo)%></td>
                    <td align="right"><%=FormatNumber(MatTemporal(0,tempo),2)%></td>
                </tr>
            	<% Next %>
            </table>
		<% Else %>
            <table width="100%" border="1" cellspacing="0" cellpadding="2" bordercolor="#ACACAC" style="border-collapse:collapse;">
                <tr>
                    <td>Ninguna Partida</td>
                </tr>
            </table>
		<% End If %>                                                        
        </td>
        <td width="7%" align="center">
			<%
            sSQL = ""
            sSQL = sSQL & " SELECT SUM(Insumos.ins_costo_total) AS SUMA"
            sSQL = sSQL & " FROM InsumoProceso"& qGestion &""
            sSQL = sSQL & " INNER JOIN Insumos ON InsumoProceso"& qGestion &".ins_id = Insumos.ins_id"
            sSQL = sSQL & " WHERE (InsumoProceso"& qGestion &".pro"& qGestion &"_id = "& MatrizProcesos(0,n) &")"
            ResultadoTemporal = RecordBD(sSQL, "SUMA", 1)
            If IsNull(ResultadoTemporal) Then ResultadoTemporal = 0 
            %>
            <% If CDbl(ResultadoTemporal) = 0 Then %>
                    <a href="ModificacionInsumosActividad.asp?WhatToDo=cmdAssign&qRegistro=<%=MatrizProcesos(0,n)%>&qApertura=<%=MatrizProcesos(5,n)%>" target="_parent"><img src="Iconos/page_green.png" width="16" height="16" align="absmiddle" border="0" title="Asignar Insumo" alt="Asignar Insumo"></a>
                <% Else %>
                    <a href="ModificacionInsumosActividad.asp?WhatToDo=cmdAssign&qRegistro=<%=MatrizProcesos(0,n)%>&qApertura=<%=MatrizProcesos(5,n)%>" target="_parent"><img src="Iconos/page_green.png" width="16" height="16" align="absmiddle" border="0" title="Asignar Insumo" alt="Asignar Insumo"></a><img src="Iconos/money_dollar.png" width="16" height="16" align="absmiddle" border="0" title="TOTAL : <%=FormatNumber(ResultadoTemporal,2)%>" alt="TOTAL : <%=FormatNumber(ResultadoTemporal,2)%>">
                
            <% End If %>
        </td>
    </tr>
<% next %>
</table>